﻿Public Partial Class Wfrm_Paso4
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ImageButton3.Visible = False
        ImageButton3.UpdateAfterCallBack = True

        If Session("ptd_rut") Is Nothing Then
            Response.Redirect("../default.aspx")
        End If
        If Not Page.IsPostBack Then
            ViewState("prox_hora") = Session("prox_hora")
            ViewState("centro_medico") = Session("centro_medico")
            ViewState("profesional") = Session("profesional")
            ViewState("ptd_rut") = Session("ptd_rut")
            ViewState("agp_correl") = Session("agp_correl")
            ViewState("age_correl") = Session("age_correl")
            ViewState("fecha") = Session("fecha")
            ViewState("hora") = Session("hora")
            ViewState("especialidad_texto") = Session("especialidad_texto")
            ViewState("especialidad_codigo") = Session("especialidad_codigo")

        End If

    End Sub
    Sub carga_grilla()
        Dim exec As New DotNetDal.SQLPersistence(False, "cnn", DotNetDal.SQLPersistence.Provider.SQLCLIENT)
        Dim rp As New DotNetResponse.SQLPersistence
        rp.StoredProcedure = "SP_AME_Get_Familia"
        rp.AddParametro(txt_rut.Text & txt_dv.Text)

        exec.ExecuteDataTable(rp)

        If rp.TieneDatos Then
            grdCargaFamilia.DataSource = rp.DtTable
            grdCargaFamilia.DataBind()
            grdCargaFamilia.UpdateAfterCallBack = True

            Session("age_rut") = grdCargaFamilia.Items(0).Cells(8).Text
            Session("age_paterno") = grdCargaFamilia.Items(0).Cells(3).Text.Replace("&nbsp;", "")
            Session("age_materno") = grdCargaFamilia.Items(0).Cells(4).Text.Replace("&nbsp;", "")
            Session("age_nombres") = grdCargaFamilia.Items(0).Cells(2).Text.Replace("&nbsp;", "")
            Session("age_fono") = grdCargaFamilia.Items(0).Cells(9).Text.Replace("&nbsp;", "")
            Session("cmn_codigo") = Val(grdCargaFamilia.Items(0).Cells(11).Text)
            Session("age_celular") = grdCargaFamilia.Items(0).Cells(6).Text.Replace("&nbsp;", "")
            Session("pac_numficha") = Val(grdCargaFamilia.Items(0).Cells(10).Text)
            Session("isa_codigo") = Val(grdCargaFamilia.Items(0).Cells(7).Text)
            Session("pac_correl") = Val(grdCargaFamilia.Items(0).Cells(5).Text)

        End If
    End Sub

    Protected Sub lnk_Olvido_clave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles lnk_Olvido_clave.Click
        Session("prox_hora") = ViewState("prox_hora")
        Session("centro_medico") = ViewState("centro_medico")
        Session("profesional") = ViewState("profesional")
        Session("ptd_rut") = ViewState("ptd_rut")
        Session("agp_correl") = ViewState("agp_correl")
        Session("age_correl") = ViewState("age_correl")
        Session("fecha") = ViewState("fecha")
        Session("hora") = ViewState("hora")
        Session("especialidad_texto") = ViewState("especialidad_texto")
        Session("especialidad_codigo") = ViewState("especialidad_codigo")
        Session("rut") = txt_rut.Text
        Session("dv") = txt_dv.Text


        Anthem.Manager.AddScriptForClientSideEval("window.location='Wfrm_Recuperar_Clave.aspx';''")

        'Dim script As String = "  myLightWindow.activateWindow({"
        'script = script & " href:   '" & "Wfrm_Recuperar_Clave.aspx" & "', "
        'script = script & " title:  '" & "Recuperar Clave" & "', "
        'script = script & " author:  '', "
        'script = script & " caption:  '', "
        'script = script & "  left: 500,"
        'script = script & "  width: 600,"
        'script = script & "  height: 400,"
        'script = script & "  top: 300"
        'script = script & " });"

        'Anthem.Manager.AddScriptForClientSideEval(script)
    End Sub

    Protected Sub Lnk_Registro_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Lnk_Registro.Click
        'Dim script As String = "  myLightWindow.activateWindow({"
        'script = script & " href:   '" & "Wfrm_Registro_Usuario.aspx" & "', "
        'script = script & " title:  '" & "Registrar Familiar" & "', "
        'script = script & " author:  '', "
        'script = script & " caption:  '', "
        'script = script & "  left: 500,"
        'script = script & "  width: 600,"
        'script = script & "  height: 400,"
        'script = script & "  top: 300"
        'script = script & " });"

        'Anthem.Manager.AddScriptForClientSideEval(script)

        Session("prox_hora") = ViewState("prox_hora")
        Session("centro_medico") = ViewState("centro_medico")
        Session("profesional") = ViewState("profesional")
        Session("ptd_rut") = ViewState("ptd_rut")
        Session("agp_correl") = ViewState("agp_correl")
        Session("age_correl") = ViewState("age_correl")
        Session("fecha") = ViewState("fecha")
        Session("hora") = ViewState("hora")
        Session("especialidad_texto") = ViewState("especialidad_texto")
        Session("especialidad_codigo") = ViewState("especialidad_codigo")


        Anthem.Manager.AddScriptForClientSideEval("window.location='Wfrm_Registro_Usuario.aspx';''")

    End Sub

    Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
        Dim exec As New DotNetDal.SQLPersistence(False, "cnn", DotNetDal.SQLPersistence.Provider.SQLCLIENT)
        Dim rp As New DotNetResponse.SQLPersistence
        rp.StoredProcedure = "SP_AME_GET_Valida_Acceso_Usuario"
        rp.AddParametro(txt_rut.Text)
        rp.AddParametro(txt_dv.Text)
        rp.AddParametro(txt_clave.Text)
        exec.ExecuteDataTable(rp)
        If rp.TieneDatos Then
            If rp.DtTable.Rows(0).Item(0) > 0 Then
                rp.TieneDatos = False
                rp.ClearParametro()
                rp.StoredProcedure = "SP_AME_CONSULTA_HORA_TOMADA"
                rp.AddParametro(txt_rut.Text & txt_dv.Text)
                rp.AddParametro(ViewState("ptd_rut"))   '34313458
                rp.AddParametro(Convert.ToDateTime(ViewState("prox_hora").ToString).ToString("dd-MM-yyyy"))
                exec.ExecuteDataTable(rp)

                If rp.TieneDatos Then
                    ImageButton3.Visible = True
                    ImageButton3.UpdateAfterCallBack = True

                    'pnl_mensaje.Visible = True
                    'pnl_mensaje.UpdateAfterCallBack = True
                    'lbl_mensaje.Text = "Usuario con Hora y Día ya Tomado, Favor Comunicarse con Call Center, Para Tomar la Hora Solicitada"
                    'lbl_mensaje.UpdateAfterCallBack = True
                    Exit Sub
                End If

                pnl_mensaje.Visible = False
                pnl_mensaje.UpdateAfterCallBack = True
                'Acceso concebido
                Session("prox_hora") = ViewState("prox_hora")
                Session("centro_medico") = ViewState("centro_medico")
                Session("profesional") = ViewState("profesional")
                Session("ptd_rut") = ViewState("ptd_rut")
                Session("agp_correl") = ViewState("agp_correl")
                Session("age_correl") = ViewState("age_correl")
                Session("fecha") = ViewState("fecha")
                Session("hora") = ViewState("hora")
                Session("especialidad_texto") = ViewState("especialidad_texto")
                Session("especialidad_codigo") = ViewState("especialidad_codigo")
                Session("rut_usuario") = txt_rut.Text & txt_dv.Text
                Session("mail") = RTrim(LTrim(rp.DtTable.Rows(0).Item(1))).ToString
                Session("clave") = txt_clave.Text
                carga_grilla()

                Response.Redirect("Wfrm_Paso6.aspx", True)
            Else
                'Acceso denegado
                pnl_mensaje.Visible = True
                pnl_mensaje.UpdateAfterCallBack = True

                lbl_mensaje.Text = "Usuario o clave incorrecta"
                lbl_mensaje.Visible = True
                lbl_mensaje.UpdateAfterCallBack = True

            End If

        Else
            pnl_mensaje.Visible = True
            pnl_mensaje.UpdateAfterCallBack = True

            lbl_mensaje.Text = "Usuario o clave incorrecta"
            lbl_mensaje.Visible = True
            lbl_mensaje.UpdateAfterCallBack = True

        End If
    End Sub
End Class